home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2 - Developers' Solutions / Delphi 2 Developers' Solutions.iso / dds / chap07 / howto01 / mrodemo / multirec.exe / 0 / RCDATA / TFORM1 / TFORM1.txt
Encoding:
Text File  |  1996-04-14  |  2.4 KB  |  108 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 99
  4.   Width = 467
  5.   Height = 410
  6.   Caption = 'Multi Record Form'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 16
  13.   object DBGrid1: TDBGrid
  14.     Left = 8
  15.     Top = 40
  16.     Width = 441
  17.     Height = 324
  18.     DataSource = DataSource1
  19.     DefaultDrawing = False
  20.     Font.Color = clWindowText
  21.     Font.Height = 94
  22.     Font.Name = 'System'
  23.     Font.Style = []
  24.     Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
  25.     ParentFont = False
  26.     TabOrder = 0
  27.     TitleFont.Color = clBlack
  28.     TitleFont.Height = -11
  29.     TitleFont.Name = 'MS Sans Serif'
  30.     TitleFont.Style = [fsBold]
  31.     OnDrawDataCell = DBGrid1DrawDataCell
  32.   end
  33.   object DataSource1: TDataSource
  34.     DataSet = Table1
  35.     Left = 8
  36.     Top = 8
  37.   end
  38.   object Table1: TTable
  39.     Active = True
  40.     DatabaseName = 'DBDEMOS'
  41.     TableName = 'CUSTOMER.DB'
  42.     Left = 48
  43.     Top = 8
  44.     object Table1CustNo: TFloatField
  45.       DisplayLabel = 'Who'
  46.       DisplayWidth = 5
  47.       FieldName = 'CustNo'
  48.     end
  49.     object Table1Company: TStringField
  50.       DisplayLabel = 'Where'
  51.       DisplayWidth = 5
  52.       FieldName = 'Company'
  53.       Size = 30
  54.     end
  55.     object Table1Addr1: TStringField
  56.       FieldName = 'Addr1'
  57.       Visible = False
  58.       Size = 30
  59.     end
  60.     object Table1Addr2: TStringField
  61.       FieldName = 'Addr2'
  62.       Visible = False
  63.       Size = 30
  64.     end
  65.     object Table1City: TStringField
  66.       FieldName = 'City'
  67.       Visible = False
  68.       Size = 15
  69.     end
  70.     object Table1State: TStringField
  71.       FieldName = 'State'
  72.       Visible = False
  73.     end
  74.     object Table1Zip: TStringField
  75.       FieldName = 'Zip'
  76.       Visible = False
  77.       Size = 10
  78.     end
  79.     object Table1Country: TStringField
  80.       FieldName = 'Country'
  81.       Visible = False
  82.     end
  83.     object Table1Phone: TStringField
  84.       FieldName = 'Phone'
  85.       Visible = False
  86.       Size = 15
  87.     end
  88.     object Table1FAX: TStringField
  89.       FieldName = 'FAX'
  90.       Visible = False
  91.       Size = 15
  92.     end
  93.     object Table1TaxRate: TFloatField
  94.       FieldName = 'TaxRate'
  95.       Visible = False
  96.       DisplayFormat = '0.00%'
  97.     end
  98.     object Table1Contact: TStringField
  99.       FieldName = 'Contact'
  100.       Visible = False
  101.     end
  102.     object Table1LastInvoiceDate: TDateTimeField
  103.       FieldName = 'LastInvoiceDate'
  104.       Visible = False
  105.     end
  106.   end
  107. end
  108.